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INTRODUCCION 


En las páginas que siguen hemos reunido aquellos TRUCOS, rutinas e ideas de programa- 
ción, de aplicación específica en el ordenador AMSTRAD, versiones CPC-464, 664 y 6128 y que 
nos han resultado útiles en nuestro trabajo en torno a este ordenador. Esperamos que su lectura 
y comprensión contribuya a hacer las cosas más fáciles y divertidas al programador de AMS- 
TRAD. 


Algunos TRUCOS como verá son específicos del AMSTRAD, e incluso en algún caso, los 
menos, propios de alguno de los modelos, otros sin embargo son de índole más general y fácil- 
mente implantables en otros ordenadores. La compatibilidad entre los tres modelos es casi to- 
tal, excepto obviamente en lo que se refiere a discos y se ha tratado de mejorar esta compatibili- 
dad con alguno de los TRUCOS expuestos. 


El libro está concebido como un manual de consulta, al cual podamos remitirnos, buscando 
algún tipo de aplicación difícil de encontrar en un manual de uso o en libros específicos, que 
si bien pueden contener información, ésta no está catalogada y por tanto difícil de encontrar 
en un momento dado. 


Cada TRUCO va incluido en una ficha y ésta se divide en cuatro partes. La primera “EFEC- 
TO” describe los efectos conseguidos con la aplicación del mismo. 


La segunda “COMO CONSEGUIRLO” incluye la rutina en BASIC o código máquina que per- 
mite conseguir el efecto descrito. 


La tercera “EJEMPLO” incluye un ejemplo sencillo que ilustra como se usa la rutina descri- 
ta anteriormente. Generalmente para utilizar el ejemplo es necesario haber cargado en memoria 
previamente la rutina. 


La cuarta parte y última “EXPLICACION” trata de describir “cómo y porqué” funciona y se 
consigue el efecto. De esta explicación podrán conseguirse en muchos casos ideas para nuevas 
aplicaciones, siendo este uno de los objetivos, no tratamos sólo exponer una colección de TRU- 
COS sino facilitar nuevos caminos al programador e indicarle mayores posibilidades en la reso- 
lución de problemas específicos. 


La numeración de las rutinas comienza en la línea 9000 a fin de que no interfieran en sus 
programas BASIC, no obstante puede renumerarlas a su gusto o necesidades e incluso utilizar- 
las directamente y no como subrutinas. 


Si lo desea puede grabarlas por separado y cargarlas desde la cinta o disco en que las alma- 
cene, en sus programas mediante la instrucción MERGE, renumerando posteriormente el conjunto. 


El asterisco que figura bajo el número de ficha, indica que el TRUCO es válido para cual- 
quiera de los tres modelos de AMSTRAD, en caso contrario se indica en qué modelos puede 


utilizarse. 


Por último indicarle que para la explicación de estos TRUCOS no necesita tener unos pro- 
fundos conocimientos del BASIC del AMSTRAD, aunque evidentemente su total comprensión 
se verá facilitada por su experiencia. 


CENTRADO DE 
TEXTOS 


EFECTO: 


Centra cualquier texto en la pantalla, en cualquier MODE, de forma que los mismos apa- 
recen simétricamente respecto al eje central. 


COMO CONSEGUIRLO: 


Utilice la rutina que indicamos a continuación, cambiando el número 20 por los siguien- 
tes valores, dependiendo del modo de pantalla. 


MONDE 
MODE 1] 
MODE 2 


5000 REM CENTRADO EN 40 COLUMNAS 
9010 DEF FN T(TS5>)=20-C(LEN (TS>/2) 
9020 PRINT TABCEN TCAS)>AS 

9030 RETURN 


EJEMPLO: 
Pruebe el efecto que se consigue con el ejemplo que indicamos para MODE 1. 


CLS 
PRINT”1234567890123456789012345078901234507890"” 
A$S=” CENTRADO DE TEXTOS” 

GOSUB 9000 

As5=”40 columnas” 

GOSUB 9000 

END 


EXPLICACION: 


En la línea 9010, definimos una función que determina la posición del tabulador donde 
debe comenzar la impresión y que depende de la longitud del texto y del modo de panta- 
lla en que estamos trabajando. 


VISUALIZAR ESPACIOS 


EN BLANCO dei 


* 


EFECTO: 


Muestra los espacios en blanco contenidos en un listado en vídeo inverso. 


COMO CONSEGUIRLO: 


Introducir la rutina en forma de programa o bien como comandos directos (sin números 
de línea). 


SYMEOL -AFTER 1 
EEY 0,symbol 32,0"+CHR$C133) 


KEY 1,"symbol 32,255,255,255,255,255,255, 255"+CHR$(13) 


EJEMPLO: 


Utilice cualquier programa, lístelo y observe el efecto obtenido. 


EXPLICACION: 


Pulsando la tecla [f1] (teclado numérico auxiliar), los espacios se hacen visibles en vídeo 
inverso, esto le permitirá suprimir todos los espacios innecesarios que se introdujeron 
al teclear el programa, sobre todo al utilizar la tecla COPY. Para volver a la normalidad, 
pulsar [f3]. 


EFECTOS 
MULTICOLORES EN 
LA PANTALLA 


EFECTO: 


Las tres rutinas que presentamos producen un efecto multicolor sobre la pantalla, tipo 
explosión. La primera afecta sólo al borde, la segunda al cuadro de la pantalla y la terce- 


ra a toda la pantalla. 


COMO CONSEGUIRLO: 


3000 
23010 
SOZO 
3030 
3040 
3050 
9060 
3070 
030 


REM Efecto de borde 
duracion=200 

FOR k=1 TO duracion 
var=RND3SO+50 

DUT 27F00,50 

DUT 27F00,var 

NEXT kE 

EORDER 1 

RETURN 


EJEMPLO: 


2000 


2040 
3050 
30€0 
2070 
3050 


REM Efecto en pantalla 
duracion=200 

FOR k=1 TO duracion 
var =ANDESO+50 

QUT 27F00,0 

0UT 27F00, var 

NEXT E . 

EORDER 1 

RETURN 


REM Efecto en toda la pantalla 
duracion=200 

FOR k=1 TO duracion 
var=ANDE5O+50 
OUT 27F00,0: QUT 
OUT 27F00,50: OUT 
NEXT k 

EODRDER 1 

RETURN 


X7FOO, var 
27FO00O, var 


Utilice cualquiera de sus programas en el que desee alguno de estos efectos y llámela 
mediante la instrucción GOSUB 9000. 


EXPLICACION: 


La duración del efecto puede modificarse, cambiando el valor en la línea 9010. Pruebe 
para valores distintos del RND en la 9030. 


SUBRAYADO DE 
TEXTOS 


EFECTO: 


Esta rutina produce el subrayado de cualquier texto, sobreimprimiendo el símbolo 
en la misma línea que el texto. 


COMO CONSEGUIRLO: 


Utilice la rutina. 


S000 REM SUBRAYADO 

39010 FRINT TAECNDAS; CHOR$CZZI) EF CHRSC1) 
30720 FRINT CHAR$C(11>; 

3030 FOR L=1 TO LEN C(AS):FRINT “_”;5: NEXT 
39040 RETURN : 


EJEMPLO: 


Pruebe este sencillo programa junto con la rutina anterior. 


10 af="SUERAYADO DE TEXTO=” 
ZO GOSUBE 23000 
30 END 


COMO CONSEGUIRLO: 


CHR$ (22) es una opción de transparencia, lleva un parámetro que puede valer Y (desac- 


tivado) ó 1 (activado) Así CHR$ (22); CHR$ (1) produce una sobreimpresión respetando 
lo anterior (ver ficha 39). 


CHR$ (11) hace subir el cursor una línea. 


El bucle de la 9030 imprime el símbolo de subrayar tantas veces como caracteres tenga 
el texto A$. 


COPY DE PANTALLA FICHA 


EN BAJA RESOLUCION 5 
(para 464 ver ficha 10) 664-6128 


EFECTO: 


Realiza un COPY de pantalla en baja resolución, es decir sólo para textos, en cualquier 
modo (0, 1 o 2). 

Esta rutina le será más útil, que tener que duplicar los PRINT en el caso de querer obte- 
ner los resultados por pantalla e impresora. Prepare únicamente la salida hacia pantalla 
como le guste y obtendrá en papel una copia exacta. 


COMO CONSEGUIRLO: 


3000 “ COPY DE FANTALLA FARA 40 COLUMNAS 
3010 WIDTH 40 

3020 FOR F=1 TO 25 

3030 FOR C=1 TO 40 

3040 LOCATE C,F 

3050 A$=COPYCHRS CHO) 

3060  PRINT 2,4%: 

3070 NEXT C,F 


EJEMPLO: 


CLSIFOR E=1 TO 50 
F=INTCORNDEZ5)+1 
C=INTCRNDEdO +1 
LOCATE C,F:FRINT”*A” 
NEXT KE 

GOSUE 3000 

END 


EXPLICACION: 


La rutina utiliza la instrucción COPYCHR$ (disponible para los modelos 664 y 6128), lee 
el caracter que hay en la posición actual del cursor, lleva forzosamente un parámetro 
que indica la ventana sobre la que ha de actuar, si no se han indicado ventanas debe 
llevar Y que es la normal. 

La línea 9010 fija el número de caracteres por línea para la impresora, si se desea traba- 
jar en MODE Y ó 2, cambiar el valor 40 por 20 y 80 respectivamente. 

La línea 9020 establece un bucle entre la línea 1 y la 25 y por tanto no depende del modo 
de pantalla. 

La 9030 establece un bucle entre la columna 1 y la 40, para MODE £J el límite superior 
será 20 y para MODE 2,80. 

La 9040 sitúa el cursor y la 9050 lee el contenido y lo almacena en la variable Af. 

La línea 9060 imprime el contenido de A$ por la impresora (8). El punto y coma hace que 
no se produzca el salto de línea (retorno de carro), dicho salto sólo se realiza cuando 
el número de columnas impresas es igual a las indicadas por la orden WIDTH de la línea 
9010. 


IMPRIMIR EN 
VIDEO INVERSO 


EFECTO: 


Resalta los datos en pantalla apareciendo en vídeo inverso, es decir intercambia los co- 
lores de tinta y papel. 


COMO CONSEGUIRLO: 


Utilice el caracter de control 24 en la forma CHR$ (24) en sus PRINT, en la forma que 
se indica en el ejemplo. 

Si desea cambiar toda la pantalla introduzca. 

CHR$ (24) : CLS + ENTER. 

Para restituir las condiciones iniciales, repita la orden. 


EJEMPLO: 


10 PRINT “VIDEO NORMAL”. 
20 PRINT CHR$ (24); “VIDEO INVERSO”; CHRS$ (24). 


El primer CHR$ (24) invierte los colores y el segundo restaura las condiciones iniciales. 


NOTA: Los puntos y coma de la línea 20 pueden omitirse. 


EXPLICACION: 


El caracter 24 cuyo nombre es CAN produce el intercambio entre los colores de la tinta 
y el papel, no lleva ningún parámetro por tanto se utiliza como CHR$ (24), sólo o actuan- 
do sobre PRINTS concretos. 


ESCRITURA LETRA mm 
A LETRA CON SONIDO, des 
EN VENTANA : 


(MODE 2) 


EFECTO: 


Dado un texto de cualquier longitud, lo imprime letra a letra de forma más o menos rápi- 
da, añadiéndole un efecto sonoro. Permite enviar mensajes móviles en ventana en el 
MODE2 (80 columnas). 


COMO CONSEGUIRLO: 


“ RUTINA DE ESCRITURA EN VENTANA CON SONIDO (50 COLUMNAS) 
DO MODE 2 

FRINT CHRA$(24) 

LOCATE 5,222 FPRINT ” 


FOR K=1 TO LEN(TS) 
LOCATE 1,24: PRINT MIDSC(T$,K,73) 
SOUND 1,3,10 : FOR Y=1 TO €0: NEXT Y 
NEXT K 
PRINT CHR$(24) 
RETURN 


EJEMPLO: 


Compruebe con este programa y la rutina anterior, el efecto conseguido 


10 T$=" ESTE TEXTO CORRESFPONEDE A UN EJEMPLO DE ESCR 
ITURA EN VENTANA CON MOVIMIENTO CONTINUO, LA FRAGMENTACION DE LA CADENA =E REALI 
ZA CON MID$ Y LA ESCRITURA CON UN LOCATE FIJO, DONDE SE VEICA 


20 GOSUE 9000 
30 CL5 
40 END 


EXPLICACION: 


La impresión se realiza mostrando 79 caracteres del total del texto, mediante la instruc- 
ción de fragmentación MID$ (línea 9550) donde T$ es la variable que contiene el texto, 
K la variable del bucle que varía entre 1 y la longitud de T$ y 79 es el número de caracte- 
res de la subcadena que se muestra. 

La línea 9560 produce un sonido en cada PRINT y una pequeña pausa. 

Si no se desea borrar la pantalla suprima la línea 9500. 

Para vídeo normal, suprimir las líneas 9505 y 9575. 

Si desea este efecto en MODE 1, sustituya el valor 79 de la línea 9550 por 39 y modifique 
la 9500. Recuerde que T$ no puede contener más de 255 caracteres. 
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“PRESIONE UNA TECLA [cha 
PARA CONTINUAR” ( 


* 


EFECTO: 


En muchos programas, antes de continuar es necesario un control o parada del mismo, 
el mensaje clásico es “Presione una tecla para continuar”. 

En algunos ordenadores la sentencia PAUSE Y permite detener indefinidamente un pro- 
grama, la rutina que presentamos a continuación produce este efecto y el de presentar 
la frase citada en forma de texto móvil. 


COMO CONSEGUIRLO: 


Introduzca esta rutina en su ordenador. 


23000 REM TEXTO MOVIL + FAUSA 
2010 * FRESIONE UNA TECLA FARA CONTINUAR 

2020 TEXTOS$="” FULSE UNA TECLA FARA CONTINLIAR di 
3030 =3$=TEXTOS 

2040 FRINT CHR$C2d05 

3050 FOR CON=1 TO 40 

3060. LOCATE 1,25 

2070  FRINT TEXTOS; 

2020 TEXTOS=MID$(=3%$, CON+LEFTS$C35$, CON) 

3030 CONS=INKEY$: 1F CON$<”"% THEN 23110 

3100 NEXT CON: FRINT CHR$(72: GOTO 2050 

FRINT CHESCI4I)ICLSI RETURN 


EJEMPLO: 


Utilice uno de sus programas o utilice estas líneas para ver el efecto 


10 CL 
ZO GOSUE 3000 
O END 


EXPLICACION: 


La línea 9090 produce el efecto de pausa citado, si se pulsa una tecla borra la pantalla, 
restaura los colores y vuelve al programa principal (línea 9110), en caso contrario conti- 
núa visualizándose el texto. 

Cada vez que termina de imprimirse un texto se produce un BEEP (pitido) por la acción 
del caracter CHRS$ (7). 


ENTRADA DE DATOS 
EN FORMA 
DE FICHAS 


EFECTO: 


En ocasiones y con objeto de facilitar la entrada de datos conviene presentar estos en 
pantalla en forma de ficha, de manera que los INPUTS aparezcan en las casillas conve- 
nientes de la ficha. 


COMO CONSEGUIRLO: 


Sobre una plantilla cuadriculada que simule la pantalla, en el modo deseado (ver planti- 
llas en el apartado “Para su referencia...” de su manual). Sitúe los textos de los INPUTS 
que formarán la ficha, en la forma que desee, saque los valores de columna y fila de co- 
mienzo de cada texto e introduzca en líneas DATA las triadas de valores. 

DATA columna, fila, “Texto del INPUT”. 

Calcule además los valores de columna y fila donde deben aparecer el cursor en los IN- 
PUTS, e introdúzcalos también en líneas DATA. 

Siga luego el ejemplo que proponemos y le será fácil adaptarlo a sus necesidades. 


EJEMPLO: 
10 REM INPUTS EN FICHAS 
20 DATA 1,7, NOMERE,1,S,CALLE 
30 DATA 25,5,No.,1,7,FOELACION,25,7,TEL 
40 DATA S5,3,3,5 
50 DATA Zz=,! 1 
£0 CL53 
70 A$S=3TRING$C40,"H"> 
S0 FRINT As 
30 LOCATE 1,39: FRINT As 
100 FRINT CHR$(24) 
110 FOR E=1 TO 5 
130 READ C,F:LOCATE C,F 
130 READ A$: FRINT As5 
140 NEXT E 
150 FRINT CHR$(24) 
160 FOR K=1 TO 5S 
170 READ C,F: LOCATE C,F 
120 INFUT ”,ASCKE>) 
190 NEXT E 


17,29,7 


EXPLICACION: 


Las líneas DATA se obtienen en la forma indicada anteriormente. 

La línea 70 produce una cadena de 40 caracteres iguales a xx% 

Las líneas 80 y 90 sólo son de adorno para formar la ficha. 

La línea 100 produce un vídeo inverso (intercambia los colores de la tinta y el papel). 
El primer bucle (110 a 140) imprime los textos de los INPUTS. 

El segundo sitúa el cursor en los sitios prefijados, de forma que los INPUTS se producen 
en dichos sitios. 

En la línea 180 si se suprime“ ”, aparece el símbolo ? dentro del cursor. 
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COPY CHR$ 
PARA 464 


EFECTO: 


Permite obtener en el 464 un comando análogo al COPYCHR$ de los modelos de disco. 


COMO CONSEGUIRLO: 


Cargue la rutina en código máquina con el cargador BASIC que se acompaña (comprue- 
be bien los valores de los DATA antes de hacer RUN). 

Una vez instalado tiene disponible su función. Inicializa una variable alfanumérica con 
un espacio (por ejemplo X$ = “* ”) y llame a la rutina mediante CALL HIMEN + 1, X$ 


10 MEMORY (HIMEM-50) 

20 s=1 

30 READ as$ 

90 WHILE asc<>"x" 

30 POKE HIMEM+s,VAL("k"*as5) 

60 s=s+1:READ as 

70 WEND 

80 DATA CD, 78,BB,ES,DD,7E, 0,20 
90 DATA B9,BB,FS,CD,78,B3,CD,87 
100 DATA EB,CD,7S,BB,CD,60,52.FE 
1:10 DATA 00,28,0B,DD,6€,07,1D,€S 
120 DATA 03,23,5E,23,56,12,F:,CD 
130 DATA B4,BB,E1,CD,75,B3,C9,% 
140 END 


EJEMPLO: 


Equivalencias entre COPYCHR$ y la llamada a la rutina 


664 ó 6128 


LOCATE 10,5 : X$ = COPYCHR$ CALL HIMEN + 1, X$ 


LOCATEH 1, 15, 15: X$ = COPYCHRS (2x1) CALL HIMEN + 1, X$, 1 


De esta forma podrá traducir listados programa del 664 ó 6128 a su 464, que utilicen esta 
instrucción. 


CAT POR IMPRESORA FICHA 


(AMSDOS) re 
664-6128 


EFECTO: 


Produce sobre la impresora el mismo efecto que CAT sobre la pantalla. Permite por tan- 
to listar por impresora el contenido de los archivos en disco y simultáneamente por 


pantalla. 
Aunque el método es válido para archivos en cinta, no recomendamos su utilización ha- 


bida cuenta de la diferencia de la sentencia CAT sobre disco y sobre cinta y por no dis- 
poner el 464 de la función COPYCHR$ utilizada en esta rutina, (ver ficha 10). 


COMO CONSEGUIRLO: 


2000 REM CAT FARA IMFRESORA 
3010 MODE 1: WIDTH 40 
3030 CAT 
FRINT H» 
FOR F= 1 TO 25 
FOR C=1 TO 40 
LOCATE C,F:A$=COFYCHR$CRO) 
IF As="H" THEN 5030 ELSE FRINT H=,$; 
NEXT C,F 
END 


EJEMPLO: 


Introduzca uno de sus discos, encienda la impresora y teniendo el programa anterior en 
memoria (o salvado en disco) utilice RUN y obtendrá un catálogo por impresora. 


EXPLICACION: 


La línea 9010 prepara la pantalla y la impresora para trabajar en 40 columnas. 

9020 produce un catálogo del contenido del disco sobre la pantalla. 

9030 símbolo de control para que la copia se reduzca al número de líneas estricto que 
ocupa el catálogo. 

9050 a 9080 bucle idéntico a la rutina de la ficha 5, añadiendo el control del caracter ++ 
producido por la línea 9030 como fin de la impresión. 

Esta rutina es válida bajo el sistema operativo AMSDOS, que es el inicial en su AMS- 
TRAD. Si se encuentra bajo CPM resulta aún más fácil (ver ficha 23). 
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CONVERSION DE 
UN 664 O 6128 - 
EN UN 464 


FICHA 
12 


664-6128 


EFECTO: 


No se trata de un paso atrás, sino al contrario permitir a los modelos 664 y 6128 el uso 
de programas concebidos exclusivamente para el 464. 


COMO CONSEGUIRLO: 


Introduzca esta rutina y antes de hacer RUN, sálvela en disco, compruebe detallada- 
mente los valores de las líneas DATA y sólo cuando esté seguro salve la versión definita 
concluyendo la línea 9095 NEW que borrará el programa. 


3000 REM CONVERTIR EN UN CFC 464 
3010 MEMORY 27FF 

30270 DRI=2%=3000 

3030 FOR K=0 TO 62 

39040 READ CON 

39050 POKE ORI+K,CON 

9060 S==+C0ON 

39070 NEXT E 

39030 IF S<>56058 THEN FRINT “ERROR EN LOS DATOS”: END 
3090 CALL 223000 : 


39095 NEW 

3100 DATA 205,200,123,122,1 32,5,6,0,17,6,192,237,83,£60,1273 

3110 237,67,62,123, 33,2 232,14,252,205,22,189,42,60,1235 

3120 S 562,201,50,203,133,34,57,122:,121,50,59,1:32 


9130 DATA 17,£4,0,33,255,171,223,57,123,0,0,0,0,0,0,0 


EXPLICACION: 


Los modelos 664 y 6128 necesitan 1284 bytes para la gestión del BASIC de forma que 
al encender si usamos la orden PRINT HIMEN veremos que nos da el valor 42619, sin 
embargo en un 464 obtenemos 43903, esta diferencia es la ocupada por el sistema ope- 
rativo del disco. 

Con el fin de que el BASIC recupere toda la memoria guarda la rutina en un disco con 
SAVE “464” y antes de introducir los programas comerciales para 464, que le darían el 
error “MEMORY FULL”, haga RUN “464” carguelos ahora. Verá como se trata de un pa- 
so adelante y no hacia atrás. 
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TABLA DE NUMEROS 
DECIMALES Y 
HEXADECIMALES 


EFECTO: 


Produce una tabla de equivalencias entre números decimales y hexadecimales lo que 
le facilitará la conversión entre ambos sistemas de numeración. Al final se expone la 
tabla obtenida con este programa. (Apéndice 1). 


COMO CONSEGUIRLO: 


10 FRINT PR,” 

ZO FRINT Pez,” 

30 PRINT Rk= 

40 WIDTH 73:MODE <= 

50 FOR K=1 TO 55 

E0 PRINT K3%="%3HEXS(K,2),E+503=" 3 HEXSC(E+50, 20, ,K+1003=" 3 HEXSCK+100,2),E+1503" 
="3HEXS$C(E+150),E+2001=" 3 HEXSCE+200) 

70 FRINT M3,k53="+HEXS(K,230,E+503%=":¿HEX$(K+50,2),K+1003%="3HEXSCE+100,23) ,E+15 
03 ="3 HEX$CEK+150) ,E+2003%=" 3 HEXSCE+ZOOS 

ZO NEXT 


Si no dispone de impresora elimine las líneas 10, 20, 30 y 70, modifique la 40 de forma 
40 MODE 2 y obtendrá la tabla sólo por pantalla. Si lo desea puede consultar la misma 
en el apéndice del libro. 


EXPLICACION: 


El programa aprovecha la facilidad dada por la sentencia HEX$, esta lleva dos paráme- 
tros, el primero es el número decimal a convertir y el segundo el número de dígitos con 
que queremos expresar el número hexadecimal resultante, en nuestro caso 2 puesto que 
el bucle calcula números entre 1 y 255, que en hexadecimal equivale a 93 y FF respecti- 
vamente. 


Recuerde que la numeración hexadecimal (base 16) se compone de 16 símbolos) 
1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, F. 
cuyos valores decimales correspondientes son 
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15. 


Así pues como los 9 primeros son idénticos, sólo tiene que recordar los valores de las 
letras. 


Para pasar rápidamente a decimal, multiplique el primero (de la izquierda) por 16 y súme- 
le el de la derecha por ejemplo. 
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F A 
mera 240 


250 250 (decimal) 


Í BA 
3*16 48 


59 (decimal) 


Si el número hexadecimal tuviera más dígitos, la regia general es: 


F 1 
| LL 1*16 
15*161 


11*162 
4*163 


COLORES 
PARPADEANTES 


EFECTO: 


Parpadeo de los colores de la pantalla y/o el borde. 


COMO CONSEGUIRLO: 


Pantalla: Al asignar los colores mediante la sentencia INK, introduzca 2 colores en vez 
de 1, por ejemplo INK 1, 10, 16. 


Border: Igualmente introduzca 2 colores en esta sentencia, por ejemplo pruebe BORDER 
10, 20. 


En ambos casos la velocidad del parpadeo puede modificarse mediante SPEED INK (n1, 
n2). 


n1 período del primer color (1 ud = 0,02 segundos). 
n2 período del segundo color (1 ud = 0,02 segundos). 


EJEMPLO: 


Pruebe usted mismo con combinaciones y velocidades distintas y elija para sus progra- 
mas aquellos más agradables. 


Según indica el manual existen combinaciones hipnotizantes. 
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TECLAS DEFINIDAS 
PARA TRABAJAR 
EN BASIC 


EFECTO: 


Convierte algunas de las teclas del teclado alfabético en las sentencias de BASIC más 
comunes en programación. Para obtener cualquiera de las indicadas sólo tiene que apretar 
CONTROL y simultáneamente la tecla seleccionada. 


COMO CONSEGUIRLO: 


Teclee y salve esta rutina y antes de programar llámela mediante RUN, lleva una instruc- 
ción de autodestrucción (línea 180), que no debe de ser incluida hasta que esté seguro 
de que funciona. 
5 REM TECLAS DEFINIDAS. 
TECLADO ALFABETICO 
KEY DEF 26,0,108,76,141 LETRA EQUIVALENCIA 
KEY 141,"LIST " - LIST 
KEY DEF 27,0,112,50,142 - PRINT 
KEY 142,” PRINT ” - SAVE” 
KEY DEF 60,0,115,83,143 - LOAD” 
KEY 143,”SAVE “+CHR$(34) - GOTO 
KEY DEF €3,0,97,65,144 - FOR 
KEY 144,”LOAD “+CHR$(34) - NEXT 
KEY DEF 52,0,103,71,145 - RUN + ENTER 
EEY 145,” GO TO ” 
KEY DEF 53,0,102,70,146 
KEY 146,”FOR ” 
KEY DEF 51,0,116,234,147 
KEY 147%,*% TO. * 
KEY DEF 46,0,110,732,143 
KEY 143,”NEXT ” 
KEY DEF 50,0,114,52,1439 
KEY 1439,”RUN “+CHR$(1:3) 
KEY DEF 35,0,105,73,150 
KEY 150,” INPUT ” 
KEY DEF 53,0,101,63,151 
KEY 151,*EDIT 
KEY DEF 62,0,3939,67,152 
KEY 152,”CHRS$(” 
KEY DEF 34,0,111,79,153 
KEY 153,"LOCATE ” 
KEY DEF 43,0,121,233,154 
KEY 154,”IF ” 
KEY DEF 51,0,1105,€4,155 
KEY 155,” THEN ” 
EKEEY DEF 42,0,117,25,1565 
KEY 156,” USING ” 
KEY DEF 6£1,0,100,6S,157 
KEY 157,”DATA ” 
CLS:I NEW 
Si lo desea puede cambiar las instrucciones asignadas a cada letra. 


OCEAXOOMTIZ ADAN UT 
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| DIVISIBILIDAD 


EFECTO: 


Calcula si un número es divisible entre otro, es decir si el resto de su cociente es cero. 


COMO CONSEGUIRLO: 


Basta con verificar si su cociente es igual a la parte entera de dicho cociente. 
IF (n1 /n2) = INT (n1 / n2) SI son divisibles 
NO 


no lo son 
siendo n1 y n2 los números 


EJEMPLO: 


10 INPUT “Divisibles pong”; n2 


20 FOR ni = 1 TO 100 
30 IF (n1 / n2) = INT (n1 / n2) THEN PRINT n1 


40 NEXT n1 


Este programa obtiene todos los números comprendidos entre 1 y 100 que son divisibles 
por n2. 


EXPLICACION: 


Este TRUCO es una aplicación simple de la instrucción INT que devuelve la parte entera 
de un número (sin los decimales), de manera que si dos números son divisibles el co- 
ciente será entero (resto cero) y por tanto igual a la parte entera de dicho cociente. 


DEFINICION DE LA A 
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LETRA Ñ Y ñ | PE 


EFECTO: 


Si su modelo de AMSTRAD no posee la letra ñ, no se preocupe podemos “fabricarla”. 


COMO CONSEGUIRLO: 


Con esta pequeña rutina será suficiente para cambiar letras 


3000 SYMEODL 240,60,0,21€6,102,102,102,102,0 
39010 SYMEOL 241,124,0,230,246,222,195, 
3020 RETURN 


EJEMPLO: 


Pruebe este ejemplo con la rutina anterior y verá el efecto de las letras. Si no le gusta 
su forma no le será muy difícil cambiarlas. Dibújelas en papel cuadriculado y saque los 
valores correspondientes. 


REM NUEVAS LETRAS 

GOSUE 39000 

FRINT”"FELIZ A*¡CHR$cz4133%0 NUEVO” 
FRINT"Euen vino a?iCHR$C24015"ej30” 
END 


EXPLICACION: 


La instrucción SYMBOL nos permite definir nuevos caracteres o símbolos. 
Disponemos en principio de los caracteres 240 a 255 y de ellos hemos elegido los dos 
primeros, si necesitásemos más de los 16 citados debemos usar la instrucción SYMBOL 
AFTER previamente a fin de hacer la reserva necesaria. 

Detrás del código, sigue una lista de 8 números, que son los valores decimales del dibu- 
jo de las letras (ver TRUCO 20 definición de nuevos caracteres y símbolos). 


CONTROL DE SCROLL 


AUTOMATICO 
DE LA PANTALLA 


EFECTO: 


Controla el movimiento de scrolling de la pantalla, de forma que los PRINT aparecen en 
bloques de líneas controladas por la presión de una tecla. 


COMO CONSEGUIRLO: 


Basándonos en el TRUCO 16 podemos controlar el número de líneas en pantalla y su 
parada mediante 


IF contador/n* líneas = INT (contador / n? líneas) si parar 
Y no 
continua siguiente PRINT 


EJEMPLO: 


Con este ejemplo podrá ver el efecto claramente, el contador es la variable K del bucle 
y el número de líneas establecido es 20. 


10 REM FARADA DEL =CROLL 

ZO CLS 

30 FRINT"NUMERO CUADRADO CUEO” 
40 

50 

E0 3 

70 IFCE/Z01=INTCE/20) THEN GOSUE 30 
50 NEXT E 

30 2$=INFEYS: IF 2%=""” THEN 390 

100 CL 

110 FRINT“NUMERO CUADRADO 

120 

130 RETURN 


EXPLICACION: 


El bucle (50-80) imprime los 100 primeros números con sus cuadrados y cubos. Al llegar 
a 20 se verificará el IF de la línea 70 y por tanto salta a la subrutina 90, en la que INKEYS$ 
produce una espera en tanto no se apriete una tecla, en este caso se borra la tabla, se 
vuelve a imprimir la cabecera y se retorna al bucle continuando por el valor de K= 21 
y así sucesivamente con paradas cada 20 números. 

Pruebe con otros valores en lugar de 20 y vea el efecto. 
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DEFINICION DE ¿y ¡ 


EFECTO: 


En el TRUCO 17 definimos Ñ y ñ, completando los caracteres propios del castellano defi- 
niremos ahora ¿ y ¡. 


COMO CONSEGUIRLO: 


Esta rutina puede añadirse a la expuesta en el TRUCO 17, si la tiene archivada, teclee 


esta, haga un MERGE y tendrá ambas juntas y disponibles (la numeración de líneas lo 
permite). 


3020 SYMEOL 242,0,24,0,24,45,46,102,€0: 
AERIR INTERROGAC ION 
3030 SYMEOL 243,24,0,24,24,24,24,24,0:* 
AERIR ADMIRACION 
3040 RETURN 
EJEMPLO: 


Imprima el texto que desee añadiendo los nuevos caracteres mediante CHR$ (242) y 
CHR$(243), en la misma forma que lo haciamos en el TRUCO 17. 


EXPLICACION: 


Ver TRUCOS 17 y 20. 


DEFINICION DE z FICHA 
NUEVOS CARACTERES. 
Y SIMBOLOS 
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* 


EFECTO: 


Permite obtener rápidamente los valores decimales de un gráfico definido por el usua- 
rio, para su utilización en la sentencia SYMBOL. 


COMO CONSEGUIRLO: 


1%) Dibuje una cuadrícula de 8 por 8 cuadros y comience a numerar de derecha a izquier- 
da las columnas con la siguiente secuencia de números 1, 2, 4, 8, 16, 32, 64, 128. 

2%) Rellene con negro los cuadros que desee, hasta formar su dibujo. 

3%) Calcule el valor de cada fila (comenzando por la superior) teniendo en cuenta que 
a un cuadro negro le corresponde el valor de la columna en que se encuentra y a uno 
blanco nada, si hay más de un cuadro negro en una fila sume los valores de cada uno. 
49) Utilice tras la sentencia SYMBOL n.* carácter al que se asigna el dibujo, valor de 
la primera fila, valor de la 2.?..., valor de la 8.?. 

Así de fácil. 


EJEMPLO: 


1286432168 4 2 1 


62 
107 


Teclee 

SYMBOL 240, O, 28, 62, 107, 107, 127, 73, 65 

Pruebe ahora 

PRINT CHR$(240) y obtendrá un “COCO” en pantalla. 


EXPLICACION: 


Si sustituimos en la cuadrícula anterior los cuadros negros por unos y los blancos por 
otros, obtendremos una representación binaria del gráfico, de forma que lo que hemos 
hecho anteriormente es pasar de binario a decimal, de forma rápida y sin recurrir a fór- 
mulas complicadas. 
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|-1>[=[=[=fofolo 


Tenga en cuenta que por ejemplo la segunda fila que en binario es: 
1209 111 US para pasarlo a decimal, hay que coger comenzando por la derecha cada 


uno de los números y multiplicarlo por la base (2) elevada al lugar que ocupa y por último 
sumar todo, es decir 


Binario 030111089 


LL 


28 Decimal 


Seguro que de la otra forma le resulta menos complicado y rápido. 


PAUSE Y 


EFECTO: 


Si ha utilizado otros ordenadores, como por ejemplo el Spectrum, habrá observado que 
algunos disponen de una sentencia PAUSE cuyo parámetro si es Y produce una pausa 
por tiempo indefinido, hasta que una tecla es pulsada. 


Su mayor aplicación está en la combinación con el clásico mensaje “PULSE UNA TE- 
CLA PARA CONTINUAR”, que permite visualizar una pantalla durante el tiempo que de- 
seemos. El AMSTRAD no dispone de esta sentencia, pero no se preocupe es muy fácil 
de emular. 


COMO CONSEGUIRLO: 


En la ROM de su ordenador tiene la solución, basta con llamar a la dirección 8£BB18 he- 
xadecimal, mediante la orden CALL (llamada a rutinas en código máquina). Introduzca 
pues en sus listados en vez de PAUSE Y CALL 8BB18 y obtendrá el mismo efecto. 


También puede obtenerse dicho efecto con CALL 8 BBO06. 


EJEMPLO: 


9000 REM RUTINA DE MENSAJE DE CONTINUAR. 

9010 WINDOW 2x 1, 40, 25, 25 

9020 PRINTX% 1, “PRESIONE UNA TECLA PARA CONTINUAR” 
9030 CALL 8BB18 

9040 RETURN 


Esta rutina está pensada para trabajar en MODE 1 (normal), si la desea en MODE 2 modi- 
fique la línea 9010 WINDOW X%%1, 1, 80, 25, 25 6 en MODE Y 9010 WINDOW 351, 1, 20, 
25, 25. El texto de la línea 9020 deberá también modificarlo consecuentemente, alargán- 
dolo o acortándolo. 
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NUEVO JUEGO DE 
CARACTERES 


EFECTO: 


Produce un nuevo juego de caracteres completo, sin tener que recurrir a su definición 
uno a uno mediante la orden SYMBOL. 


COMO CONSEGUIRLO: 


Aprovechando una rutina de la propia ROM, utilice dentro de su programa la orden CALL 
8¿BAJA en el momento en que lo desee. 


EJEMPLO: 


10 MODE 1 

ZO — FRINT “EJEMFLO DEL NUEVO JUEGO DE CARACTERES” 
30  FRINT “UTILIZANDO CALL 2EA04” 

40 CALL 2EAOA 


Puede utilizarlo también en MODE Y pero los caracteres son menos legibles. 


CAT POR 
IMPRESORA (CPM) 


EFECTO: 


El efecto producido es idéntico al indicado en la ficha n.? 10. Enviando a la impresora 
el “catálogo” de todos los archivos contenidos en la cara del disco en curso. 


COMO CONSEGUIRLO: 


Proceda de la siguiente forma: 


1.2) Introduzca la cara 1 del disco CPM. 

2.) Teclee CPM y ENTER. 

3.) Cuando aparezca el “prompt” A>, teclee CONTROL + P en la pantalla no escri- 
birá nada y sonará un pitido de aviso. 

4.9%) Saque el disco e introduzca el deseado. 

5.2) Teclee DIR (o dir) y ENTER. 


OJO no se olvide encender antes su impresora. 


EJEMPLO: 


Siga los pasos indicados en el orden expuesto y ¡no olvide encender su impresora! 


EXPLICACION: 
Bajo el sistema operativo CPM, CONTROL + Pindica al ordenador que todas las salidas 
han de ser enviadas simultáneamente a la impresora y a la pantalla. 


Si pulsamos nuevamente CONTROL + P se cancela la salida a impresora, de modo que 
esta función es un conmutador de la impresora. 
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RECUADRAR TEXTOS DE [ E¡cHa 
LONGITUD VARIABLE 24 
(MODE 1 y MODE 2) , 


AZ A A TEA A 


EFECTO: 


Recuadra un texto con líneas de un pixel de grueso. La longitud del texto y su ubicación 
(columna y fila) puede ser cualquiera, a condición de que quepa en el número de colum- 
na por línea del modo utilizado. 


COMO CONSEGUIRLO: 


Cargue esta rutina en BASIC y aquellos programas en que desee el efecto y actívela con 
GOSUB 9000. Previamente habrá definido el texto (T$) y la columna y fila de ubicación 
(COL, FIL). 


9000 RECUADRAR TEXTOS 
9010 IF COL + LEN(TS)> 40 THEN PRINT “TEXTO EXCESIVAMENTE LARGO”: GOTO.9100 
9030 LOCATE COL,FIL:PRINT T$ 

9040 F = 25-FIL + 1:C = COL-2 

9050 PLOT C*16, F*16+5 

9060 DRAWR (LEN(TS) + 2)* 16,0 

9070 DRAWR o,-24 

9080 DRAWR -(LEN(TS) + 2)* 16,0 

9090 DRAWR 0,24 

9100 RETURN 


EJEMPLO: 


Además del ejemplo que proponemos a continuación, varíe su posición en pantalla y lon- 
gitud. Si no cabe en los 40 u 80 caracteres de una línea el programa le dará un mensaje 
al respecto. 


10 
ZO CLS 

20 T$=”"TEXTO RECUADRADO”: COL=5:FIL=£: GOSUE 2000 
40 T$=" ME NU *:COL=25:FIL=16: GOSUE 2000 

50 END 


EJEMPLO DE TEXTO RECUADRADO 


EXPLICACION: 


La rutina transforma las filas y columnas de comienzo del texto (baja resolución) en coor- 
denadas X, Y (alta resolución), mediante la línea 9050 y teniendo en cuenta que el núme- 
ro de pixels correspondiente a un cuadro de un caracter es 
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e 


16 8 
MODO 1 MODO 2 


La longitud de la línea horizontal vendrá dada por el número de caracteres que contenga 
el texto. Se le añaden 2 caracteres más a fin de alargar el texto, todo ello multiplicado 
por 16 nos dará el recorrido relativo en el sentido de las X que habrá que realizar a partir 
del punto inicial. i 


Longitud horizontal (en pixels) = (LEN (T$ + 2)) * 16 


La longitud de las líneas verticales se ha establecido en 24, lo que equivale a 4 pixels 
por encima y 4 por debajo de los caracteres del texto. 


A continuación y para MODE 2 incluimos la rutina corregida convenientemente. 


EJEMPLO DE TEXTO RECUADRADO 


MODE E 

T$="TEXTO RECUADRADO”: COL=35: FIL=E: GOSUE 3000 
T$=" ME NU :COL=25:FIL=16: GOSUE 3000 

END 


3000 
3010 
GOTO 
30:30 
3040 
3050 
39060 
23070 
9030 
3030 
3100 


" RECUADRAR TEXTOS 
IF COL+LENCTSI 350 THEN  FRINT "TEXTO EXCESIVAMENTE LARGO”: 
23100 
LOCATE COL,FIL:FRINT T$ 
F=25-FIL+1:C=COL-2 
PLOT C*3,Fx16+5 
DRAWR CLENCT$I)+2)43:,0 
DRAWR 0,-24 
DRAWR —C¿LENCTSI+ZI RS, O 
DRAWR 0,24 
RETURN 


Si lo desea con pequeñas modificaciones podrá obtener recuadros con diferentes for- 
mas, dobles, etc. Inténtelo, merece la pena. 


SELECCION DE MENUS 
POR CURSOR 


EFECTO: 


Habitualmente para seleccionar una opción en un menú se utiliza el método de introdu- 
cir un número o una letra que representa a la opción deseada, la rutina que incluimos 
le permite hacer esta selección de forma mucho más elegante, utilizando los cursores, 
que se desplazan ante los mismos y se presiona ENTER cuando se apunta hacia la op- 
ción deseada. 


COMO CONSEGUIRLO: 


Utilice la siguiente rutina, adaptándola a sus necesidades en la forma que se explica a 
continuación. 


10 SELECCION DE MENUS FOR CURSORES 


20 MODE 1 _ 

30 LOCATE 15,5: FRINT “MEN UY” 

40 LOCATE 14,6: FRINT *=========" 
50 READ MIFOR E=1 TOD M 

£0 READ T$ 

7O LOCATE 12,E+E%21 FRINT Ki% —- “3138 
30 NEXT E 


390 FIL=10 

100 1F FIL>ME2+=> THEN FIL=10 

110 IF FIL<10 THEN FIL=M*2+3 

120 FILA=F1L 

130 LOCATE 11,FIL: FRINT CHR$(243) 

140 FOR *X=1 TO SOZNEXT X 

150 IF INKEYC15I<>-1 OR INFEY(E£><2>-1 THE 
N 1390 

1£80 IF INKEYCO>)<>—1 THEN FIL=FIL-2 

170 IF INKEYcz23<>-1 THEN FIL=FIL+2 

1320 IF FIL<:FILA THEN LOCATE 11,FILA: FR 
INT ”* ”: GOTO 100 ELSE 140 

1390 * DIRECCIONAMIENTO A LAS SUERUTINAS 


200 X= FIL/2-4 
205 LOCATE 10,20: FRINT “ELEGIDA OFCION” 
5 X 


210 ON X GOTO 1000,2000, 3000, 4000 

300 DATA 4,LONGITUDES, SUPERFICIES, VOLUME 
NES,F 1 N 

1000 * RUTINA DE LONGITUD 

2000 * RUTINA DE SUPERFICIES” 

3000 * RUTINA DE VOLUMENES 

4000 * RUTINA DE FIN DE FROGRAMA 

4010 END 
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EXPLICACION: 


En la línea 300 el número 4 indica el número de opciones del menú, modifíquelo según 
sus necesidades y a continuación introduzca el nombre de las opciones. 


Como puede ver por la línea 30 la palabra MENU se imprime en la línea 5 y se subraya 
en la 6, puede modificarlo si lo desea. 


La línea 70 hace que la 1.? opción se imprima en la línea 10 y las siguientes en la 12, 
14... etc. Si quiere comenzar antes o después debe variar el n.” 8 que aparece como cons- 
tante en la 70, 100 y 110. De igual forma si quiere que las opciones vayan una en cada 
línea, debe suprimir el *2 de las líneas 70, 100 y 110. 


Si hace alguna de las variaciones de las comentadas anteriormente debe modificar los 
valores de X (línea 200) de forma que si se selecciona la opción 1.? X=1, si se elige la 
2.? X=2 y así sucesivamente. 


El direccionamiento a las diversas partes del programa se realiza en las 210 cambie los 
números de línea a los que necesite en su programa. 


POTENCIA DE BASE 
NEGATIVA 


EFECTO: 


Habrá observado que su ordenador al calcular —22 da como resultado —4, en vez de 
+ 4. Este efecto lo produce cuando el exponente es par, para obviar esto, antes de 
elevar una variable a una potencia, utilice una rutina de purga como la que indicamos. 


COMO CONSEGUIRLO: 


Adapte en sus programas las líneas 30 y 40 del siguiente ejemplo 


INFUT "NUMERO —"¿N 
20 INFUT "POTENCIA";F 
30 IF SGN (Ni=-1 AND F/2=INT(F/2) THEN NE=ABS(N) ELSE NE=N 
qu R=NESF 

SO PRINTO 2 FRIMT NqUo0FpU=" GR 


EJEMPLO: 


Pruebe los números que indicamos a continuación u otros y observe los resultados: 


EXPLICACION: 


Si el signo del número [SGN (n)] es —1 quiere decirse que dicho número es negativo. Si 
por otro lado un número (P) dividido por dos es igual a la parte entera de dicho cociente 
dicho número será divisible por 2 

(P/2 = INT (P/2) ---> divisible por 2). 


La línea 30 controla si el número n (base) es negativo y además el exponente P es par, 
si ambas condiciones se verifican se toma la base en su valor absoluto, en caso contra- 
rio se calcula en la forma habitual. 
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PARENTESIS LOGICOS [cha 


27 


* 


EFECTO: 


El uso de paréntesis lógicos permite plantear operaciones matemáticas con mayor ni- 
vel, bien solos o bien combinados con operaciones aritméticas en cualquier caso dentro 
de la programación permiten el ahorro de gran cantidad de IF, que pueden ser resueltos 
ventajosamente mediante los mismos. 


EJEMPLO: 


Observe en el ejemplo como una sola línea, la 70 produce el mismo efecto que la 30, 40 
y 50 juntas. 


El número introducido se multiplica por 2, 3 Ó 4 según sea <5, <8 Ó >=8 
respectivamente. 


10 INFUT “NUMERO” 
20 PRINT ”CON IF” 


30 IF N¿<5S THEN FRINT N*2: GOTO 60 
40 IF N<3 THEN FRINT N*3: GOTO £0 
50 PRINT Nxa 


5N 


60 FRINT CON FARENTESIS LOGICOS” 
70 PRINT NEZFABS(NI5) +NASFABSINIE AND N 
>=5)+NFA RARO CON>=3250 


EXPLICACION: 


Además de las operaciones aritméticas nuestro ordenador es capaz de realizar opera- 
ciones que denominamos lógicas. Los operadores son los que utiliza habitualmente en 
IF(>, <, =, >=,<=,<>/AND, OR, NOT) 


Mientras que las operaciones aritméticas dan resultados muy distintos, las lógicas sólo 
producen 2 tipos de resultados Y y 1. 


Por ejemplo: encienda su ordenador (o reinicialícelo) y haga estas operaciones de forma 
directa 


A = 3 ENTER 
B = 4 ENTER 
PRINT (A > 4) 
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En la pantalla aparecerá un Y4 como respuesta al PRINT ya que A no es mayor que B. 
Si hacemos ahora 

A A 

B 

PRINT (A > B) 
Aparecerá un —1 ya que la proposición es verdadera. 


Esto puede aprovecharse en una operación combinada con operadores aritméticos, y ló- 
gicos, véamos un ejemplo. 


s=8S+ABS (X >= Y) 


La variable s se incrementará en una unidad si se verifica que X es mayor o igual que 
Y, ya que el paréntesis valdría —1 y tomado en valor absoluto (función ABS), sería 1. 


Véamos otro ejemplo 


X=2 "HA =B)=06 "(2 < 34) 


Véamos qué valores tomaría X para los distintos valores de A, B y Zindicados en la tabla 


REMOS 
A 
ICI HC 


siguiente 


Pruebe con cuantos ejemplos se le ocurran y razone los resultados obtenidos, hasta que 
consiga un dominio completo de estas operaciones. 


Las aplicaciones son muy variadas y usted mismo encontrará sin duda el lugar en el cual 
le son ventajosas, el ejemplo es sólo una pequeña muestra. 


NOTA: En algunos ordenadores el valor “verdadero” en vez de -1 es 1, en cualquier caso 
el falso es siempre 4. 


UTILIZACION DE REM 


EFECTO: 


La sentencia REM es ignorada por el ordenador cuando se ejecuta un programa de for- 
ma que sólo vale,para aparecer en los listados, con el único fin de dar mayor claridad 
a los mismos. 


Hay muchas ocasiones de usar esta sentencia, a continuación le recomendamos algu- 
nas que la experiencia nos ha demostrado ser muy útiles. 


COMO CONSEGUIRLO: 


El apóstrofe + es una abreviatura de la sentencia REM en su AMSTRAD utilícelo, da más 
claridad a los listados que la propia palabra. 


1) En las primeras líneas de programa incluya 
10 ' Nombre del programa 
20 ! Fecha y versión (caso de haber varias) 
30 ! Nombre con el que se va a guardar en cinta o disco. 
2) Separe aquellas partes del programa que considere necesarias con REM seguido de 
nombres que hagan alusión a dichas partes. 


Como mínimo debe separar la entrada de datos, el cálculo y la salida de resultados, así 
como las subrutinas si ha utilizado alguna. 


3) Si utiliza muchas variables en su programa y estas tienen nombres muy cortos (1 ó 
2 caracteres) resulta muy conveniente comentar el significado de las mismas en las 
propias sentencias de asignación (LET) por ejemplo: 


LETS 
LET V 


PI *DP214: “S = Superficie del círculo. 
B * H/3 : “VW <= Volumen de la pirámide, 
B = Base, H = altura 


Puede incluso al principio del programa hacer un gran REM (o varios) que contenga la 
definición de todas las variables utilizadas. 


” VARIABLES UTILIZADAS EN EL PROGRAMA 
/S = SUPERFICIE 

/ Y, = VOLUMEN ESFERA 

” Y,= VOLUMEN DEL CUBO 


4) Para dejar visualmente más claro las partes de un programa añada espacios detrás 
del REM aclaratorio hasta sobrepasar las 40 u 80 columnas en que esté trabajando, así 
obtendrá una línea en blanco detrás de cada REM. 
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ESCRIBIR EN 
DIAGONAL O 
VERTICAL 


EFECTO: 


Permite escribir un texto en forma diagonal en la pantalla o de forma vertical. 


COMO CONSEGUIRLO: 


Utilice la siguiente subrutina para escribir en diagonal 
9000 FOR K = Y TO LEN (T$)—1 

9010 LOCATE COL + K, FIL + K 

9020 PRINT MIDS (TS, K+1, 1) 

9030 NEXT K 

9040 RETURN 


Para escritura vertical, modifique la línea 9010 en la siguiente forma 


9010 LOCATE COL, FIL +K 


EJEMPLO: 


Añada a la rutina anterior este ejemplo 

10 FIL = 3 

20 COL = 5 

30 MODE 1 

40 T$ = “COLUMNA” 

50 GOSUB 9000 

60 END 

Las variables FIL y COL contienen la fila y columna iniciales, T$ contiene el texto a 
imprimir. 


EXPLICACION: 


La función LOCATE permite escribir cada vez en una fila muy baja y una columna muy 
avanzada, desde la posición de partida debido al incremento de 1 unidad precedido por 
la variable K del bucle. 


La instrucción MID$ es la encargada de escribir sólo un caracter de la cadena 


texto 
MID$ (TS, K + 1, 1) 
longitud de la subcadena (1 caracter) 
posición del caracter elegido 
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BORRAR PALABRAS DE 


LA PANTALLA E 


* 


EFECTO: 


Permite borrar textos de la pantalla, conociendo la posición del mismo y su longitud. 


Este TRUCO es válido por ejemplo al tener que rellenar fichas en pantalla de forma que 


en la siguiente ficha se mantengan los textos generales y desaparezcan los textos perte- 
necientes a la ficha anterior. Por ejemplo 


NOMBRE: 
APELLIDOS: 
DIRECCION: 


Textos a conservar Textos a suprimir 


COMO CONSEGUIRLO: 


Construya una rutina de borracho como la siguiente (MODE 1). 
B$ = SPC (40). 


LOCATE COL, FIL: * Fila y columna iniciales donde comienza el borrado 
PRINT MID$, 1, LEN T $) : T $ Texto a borrar. 


EJEMPLO: 


Utilice el TRUCO n.* 9 como ficha. 


EXPLICACION: 


La variable B$ contiene 40 espacios (80 en MODE 2) y se imprime sólo la subcadena de 


B$ cuyo número de caracteres es igual a la longitud máxima del texto a borrar (ver TRU- 
CO 9 Entrada de datos mediante fichas). 
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INPUT CON TEXTO 
VARIABLE 


EFECTO: 


Muchas veces resulta interesante que el texto que precede a un INPUT contenga una 
variable, de forma que ésta aparezca con sus valores en sucesivos textos. Por ejemplo 
si estamos introduciendo nombres de alumnos, será conveniente que en el texto aparez- 
ca el número además de la palabra “alumno”, veamos como conseguirlo. 


COMO CONSEGUIRLO: 


Introducir el texto del INPUT en una línea PRINT previa. 

— En dicho PRINT introducimos la variable deseada. 

— Terminamos el PRINT con (;) de forma que el puntero de la pantalla no salte la línea y 
así la ? del INPUT se muestre a continuación del texto-variable. 

— Según deseemos o no que aparezca el ? del INPUT usaremos una (,) dentro del INPUT 

con una cadena vacía como veremos más claramente en el ejemplo: (INPUT “ ”, R). 


EJEMPLO: 


Introducir los nombres de 20 alumnos en una matriz 
10 DIM AL$ (20) 

20 FOR K = 1TO 20 

30 PRINT “Nombre del alumno; K; 

40 INPUT ALS (K) 

50 NEXT K 


Si no desea el signo de ? sustituya la línea 40 por 
40 INPUT “* ”, ALS (K) 


comillas seguidas (cadena vacía). 


EXPLICACION: 


El efecto se consigue por el (;) que evita el retorno del carro en el PRINT, por lo que el 
INPUT aparece a continuación y no en otra línea. 
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CIELOS 
ESTRELLADOS 


EFECTO: 


En muchas ocasiones es necesario tener una pantalla cuyo fondo produzca el efecto de 
un cielo estrellado, las dos rutinas que ofrecemos consiguen dicho efecto. 


COMO CONSEGUIRLO: 


Utilizando un bucle con el número de estrellas a situar y ubicando éstas a las coordena- 
das o fila-columna determinadas de forma aleatoria por la función RND. 
Los colores puden ser: 


Borde negro = BORDER Y 
Fondo negro = INK Y, Y 
Estrellas blancas brillantes = INK 1,26 


EJEMPLO: 


10 MODE 2 

20 FOR K=1 TO 40 

30.C=INTC(RNDEO)+1 

40 F=INTCORNDAZ25)+1 BAJA RESOLUCION 
50 LOCATE C,F: PRINT “xx” 

560 NEXT K 


10 MODE 1 

ZO FOR K=1 TO 150 

30+ X=INTCRNDICG3D0+1 ALTA RESOLUCION 
40 Y=INTCORNDA SIS +1 

50 FLOT X,Y 

60 NEXT K 


EXPLICACION: 


En el primer ejemplo C y F son las columnas y filas utilizadas para el PRINT, el “*” es 
el símbolo utilizado para representar las estrellas. 

En el segundo X, Y son las coordenadas (alta resolución), que fijan la posición de un pi- 
xel mediante PLOT. 
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LOS CARACTERES 
DEL AMSTRAD 


EFECTO: 
El AMSTRAD dispone de un juego de caracteres muy extenso. En muchas ocasiones el 


usuario no utiliza exhaustivamente los mismos. Con esta rutina podrá ver algunos de 
los efectos que pueden obtenerse con los mismos. 


COMO CONSEGUIRLO: 


Utilice este programa pulsando una tecla cada vez que termine una pantalla y podrá ob- 
servar los efectos producidos por los diversos caracteres. 

Cada uno de los 3 dibujos realizados se encuentra debidamente etiquetado con líneas 
REM en el programa ( | = REM). 


5 "ESTUDIO DE LOS CARACTERES DEL AMSTRAD 


FOR T=0 TO 255 
40 * RECUADRO Y NUMERO DEL CARACTER 
50 FOR N=1 TO 12 
60 1F T<32 THEN T$=CHR$C1I+CHRS$CT> ELSE T$=CHRAS$CT) 
70 1F N<+1 AND Nx*12 THEN 130 
30 FOR L=1 TO 20 
20 FRINT T%; 
100 NEXT L 
110 ERINT 
120 GOTO 140 
1730 PRINT TSTAECZO) TS 
140 NEXT N 
150  LOCATE —23,€£ 
160 PRINT. USING “2WkRk"5"CARACTER Nori %5T 
170 * 40 CARACTERES EN LINEA 
1:30 FOR C=1 TO 40 
130 LOCATE C,15: FRINT TS; 
200 NEXT € 
¿10 FRINT 
EZO * CUADRO CON EL CENTRO EN INVER=0O 
¡0 LOCATE 30,5: FRINT TS+T%+Ts8 
LOCATE 30,61 FRINT TS+CHRS$C24I+T ACHACA DA TS 
LOCATE 20,72 FRINT T$+T*%+T8$ 
40 CARACTERES EN DO= LINEAS ALTERNANDO FOSICION 
FOR C=i TO 40 
IF C/2=INT(C/Z) THEN FlL=1 ELSE FIL=0 
LOCATE C,Z2O-FIL: FRINT T$s 
NEXT € 
40 CARACTERES ALTERNANDO VIDEO 
FOR C=1 TO 40 
LOCATE C,24: FRINT T$53CHR$CZ24)5 
NEXT € 
CALL 2: 
MODE 1 
NEXT T 


EE1S 
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CARACTERES 
GIGANTES 


EFECTO: 


Permiten obtener letras mayores que las de MODE Y en el MODE 1. 


COMO CONSEGUIRLO: 


Utilice la siguiente rutina contenida en el programa cambiando la posición de comienzo 
del dibujo en la línea 50 y el texto en la 40. 


10 * LETRAS GIGANTES 
ZO MODE 1 
30 X=1:Y=1 
T$="GIGANTES” 
XX=0: YY=240 
A=15%x(Xx-1) 
E=33II-(Y-1d*1E 
FOR L=1 TO LENCTS)> 
. AS=MID$CTS$,L,1> 
GOSUB 140 
XX=XX+E£E4 
NEXT L 
END 
F=XXI1GQ=YY 
LOCATE X,Y: FRINT As 
FOR N=E TO E-1£ STEP -2 
FOR M=A TO A+16 STEF 2 
IF TEST (M,N> THEN GOSUE 
F=F+:2 
NEXT M 
Q=Q-21P=XX 
NEXT N:IRETURN 
FOR T=0 TO 7 STEF = 
MOVE F,G-TIDRAWR : 
NEXT T 
RETURN 


EXPLICACION: 


En realidad lo que se realiza es una copia de cada uno de los caracteres del texto, que 
van apareciendo en la esquina superior izquierda de la pantalla. Los caracteres gigantes 
no se imprimen propiamente si no que se dibujan con DRAW. 

La función TEST es la encargada de hacer la copia, según detecte un pixel iluminado o no. 
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BUSQUEDA DE 
LETRAS EN 35 
UN TEXTO 


EFECTO: 


Dado un texto permite encontrar el número de veces en que aparece una determinada 
letra dentro de él. 


COMO CONSEGUIRLO: 


Utilice este programa bien directamente o bien como subrutina de otros programas, re- 
numerando en este caso y añadiendo el RETURN correspondiente. 


10 EUSQUEDA Y CONTROL DE LETRA= 
ZO INFUT "LETRA EUSCADA”3L$ 

30 IF LENCL$>+*1 THEN 20 ELSE LS$=UFFERSCUL 
$) 

40 INFUT "TEXTO "3 T9 

50 TS=UFFERSCTS) 

20 FOR E=1 TO LENCTS> 

70 IF MID$(TS$,K,12=L$% THEN CON=CON+1 


20 NEXT E 

20 CLS: FRINT "En el texto. ..: FRINT 
100  FRINT t$: FRINT : FRINT “se encuent 
ra icons” veces la letra ”1% 


EXPLICACION: 


Dado que para el ordenador no es lo mismo la letra a que la letra A, una vez conocidos 
por INPUT, el texto y la letra a buscar, pasamos ambos a mayúsculas mediante la ins- 
trucción UPPERS$ (líneas 30 y 50). 


Dentro de un bucle de longitud igual al texto se busca mediante la función de fragmenta- 
ción MIDS$ si alguna de las letras del texto es igual a la deseada, en caso afirmativo se 
incrementa un contador (variable con). 


Si se desea saber las posiciones que ocupan, bastará con añadir detrás de la 70 ...: PRINT K. 
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BUSQUEDA DE 
PALABRAS 


EFECTO: 


Similar al TRUCO anterior, pero buscando palabras (más de un carácter) en el texto dado. 


COMO CONSEGUIRLO: 


Utilice este programa, directamente o como subrutina (adaptándolo en numeración y aña- 
diendo RETURN). 


10 * EUSQUEDA Y CONTROL DE FALAERAS 

ZO INFUT “FALAERA ELNSCADA”3FS 

30 FS=UPFFERSCES) 

35 Fi$=F$+% “IL=LENCF1$) 

40 INFUT "TEXTO "TS 

45 tó=t$+” ” 

50 T$=UFFERSCTS) 

£0 FOR E=1 TO LENCTS$> 

70 1F MID$CTS,K,LI3=F1i$THEN CON=CON+1 

50 NEXT E 

90 CLS: FRINT “En el texto...*1 FRINT 
100 PRINT t$: FRINT : FRINT “se encuent 
ra la palabra “3CHR$(24)3p$5 CHAR$SCI40 can 


m3) 


3"veces” 


EXPLICACION: 


De forma análoga al anterior pasamos texto y palabra buscada a mayúsculas para su 
posterior identificación (también puede pasarse a minúsculas, cambie UPPER$ por 
LOWERS$ y observe el efecto). 


En la línea 35 se hace que la palabra a buscar sea igual a la dada por el INPUT más un 
espacio, esto es debido a que si P$ es una palabra independiente acabará en espacio, 
mientras que si forma parte de otra palabra le acompañará otra u otras letras por ejemplo 


En.- palabra independiente 


“En la ensenada” 
ensenada.- parte de otra 


La fragmentación no se hace ahora de uno en uno, sino en trozos de longitud L siendo 
La L la longitud de la palabra a buscar más uno, que corresponde al espacio. 
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En el ejemplo anterior de texto. 


“En la ensenada” 
Y siendo la palabra buscada “en”, las subcadenas obtenidas por la línea 70 serían 


»— 


SHAYIONIO 


Palabra buscada en- 


Como puede observarse, sólo aparece una vez, en la 1.? subcadena, ya que la 6.?, 7.?, 
9.? y 10.* no son rigurosamente iguales. 


DIAGRAMAS 
DE QUESO 


EFECTO: 


Permite obtener una representación de una serie de datos, en forma de diagrama de que- 
so, tarta o sector (denominaciones usuales), de forma sencilla. 


COMO CONSEGUIRLO: 


e la línea 70 introduzca como DATA el número total de datos a representar (en el ejem- 
plo 14). 


En la línea 80 introduzca todos los datos a representar, en el orden en que se desee ob- 
servarlos, teniendo en cuenta que se representarán a partir de la posición 12 h y en senti- 
do de las agujas del reloj, por el orden seguido en la línea 80. 


El valor de K1 = 1,2656 se utiliza para deformar la circunferencia en pantalla, de forma 
que si se realiza un COPY por impresora en ésta sea una circunferencia, este valor co- 
rresponde a una SEIKOSHA 1000 A. 


O si la impresora utilizada es otra verificar este valor dibujando un cuadro y viendo la 
deformación. 


O si sólo desea representación en pantalla haga K1 = 1. 


10 7? DIAGRAMAS DE QUESO 

ZO DEG: CL 

30 K1=1.265£: " Constante de proporciona 
lidad pantalla-impresora, para copy de p 
antalla posterior 
40 FOR EK=1 TO 
50 FLOT S300+150+C0=3( 
E0 NEXT K 

70 DATA 14 

S0 DATA 577,129, 2392, 237,1:%6£8,1557,5397,39 
37,3640,1430,£00,1407,3941,=3420 

20 Al=0 

100 PLOT 300, 200:DRAWR 0,150 

110 READ NUM 

120 FOR k=1 TO numiREAD FiT=T+FINEXT E 
130 RESTORE =0 

140 FOR K=1 TO NUM:READ F 

150 A=FE3E0/T 

1€0 PLOT 300,200:DRAWR' 15043 INCA+ALORKi, 
1S5O*FCOSCA+A1) 

170 Al=A1+A 

130. NEXT E 


20 
EJEK 1, 2OO0+150F=3INCKO 
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EXPLICACION: 


> Jireradril trabaja en grados sexagesimales, para ello se utiliza la instrucción DEG en 
a línea 20. 


El dibujo consta de dos partes, por un lado el círculo, que no presenta ninguna dificultad 
(ver manual) y que se realiza mediante las líneas 40 a 60 donde 


(300, 200) = coordenadas del centro de la circunferencia 
150 = radio de la circunferencia. 


Estos valores pueden ser obviamente cambiados con el fin de obtener círculos mayores 
o menores y ubicados con su centro en otra parte de la pantalla, si lo hace no olvide 
también cambiarlos en la 160. 


La separación entre valores se realiza teniendo en cuenta la proporción que cada trozo 
representa del total (T). El ángulo será A = P*360/T, y la recta será con centro en el cír- 


culo (PLOT 300, 200). 
DRAW 150 * sin (A+A1), 150 * cos (A +A1) 
ya que 


AX = Rosina e 
AY R.cosa (R = 150) 


Ss 


Siendo í = A+A1 donde 


A es el ángulo que corresponde a cada posición 
A1 el ángulo acumulado 


NOTA: La cte K1 sólo afecta a la dirección de las X. 


DIAGRAMA DE BARRAS 
TRIDIMENSIONAL 


EFECTO: 


FICHA 
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* 


Permite obtener una representación de una serie de datos, en forma de diagrama de ba- 


rras (histogramas) en forma tridimensional en tres colores. 


COMO CONSEGUIRLO: 


Utilice el programa que indicamos a continuación adaptándolo a sus necesidades. 


10 * DIAGRAMA DE EARRA= 
ZO MODE 1 
230 ORIGIN 10,25 
40 LOCATE 23,25: PRINT “EF MANM JT. 
50 * LECTURA DE DATO=: 
60 DIM XC12) 
7O FOR k=1 TO 12 
SO READ XCK) 
30 IF XC(K32M THEN M=X(K)3:27 M=MAYOR 
100 NEXT K 
110 * ESCALA Y COLORES 
115 ESCALA=2300/M 
120 FOR K=1 TO 12 
140 XC(K)=XCKIFESCALA 
INK 1,24: INK 2,15: INK 3,7 
FOR H=0 TO XCE) 
PLOT ZE, H 
DRAWR 27,0,ZIDRAWR 10,10,3 
NEXT H 
FOR V=1 TO 12 
PLOT GZRESV, XCKI+V 
DRAWR 74,0,1 
NEXT Y 
NEXT K 
GOTO 250 
” DATOS DE CADA MES 


000 DATA "123,2734,45,67,33,110,135,102,5€ 


EXPLICACION: 


El programa se ha elaborado en base a datos mensuales de un año. Si el número de da- 
tos es distinto de 12, cambie este número de las líneas 60, 70, 120 y 200. También deberá 


cambiar el pie del gráfico de la línea 40 (texto del PRINT). 
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Los datos deben almacenarse en líneas DATA eliminando los del ejemplo, según sean 
sus magnitudes el programa procede a representarlos a escala conveniente para ello den- 
tro del bucle 70-100 se calcula el mayor de ellos, de forma que se le hace corresponder 
al mismo una altura de 300 pixels. Esta altura puede incrementarse (prueba con 350), te- 
niendo en cuenta no rebasar la pantalla. 


Modificando la línea 140 puede obtener otros colores más a su gusto, los del ejemplo 
han sido elegidos con el fin de que sean netamente visibles en un monitor verde. 


IMPRESION 
TRANSPARENTE 


EFECTO: 


Permite escribir en pantalla superponiendo sobre lo ya existente en vez de borrando que 
es lo habitual. 


COMO CONSEGUIRLO: 


Existe un código de caracter cuyo número ASCII es el 22 que permite realizar esta 
superposición. 


Dicho caracter no va sólo, sino acompañado por otro que actúa como conmutador. 


1) PRINT CHR$ (22) + CHR$ (S)Quita opción de superposición (normal). 
2) PRINT CHR$ (22) + CHRS (1) Pone opción de superposición 


EJEMPLO: 


" SUFERFOSICION 
CLS 
LOCATE 10,10: PRINT “0” 
GOSUE 120 E 
LOCATE 10,10: PRINT *_”,*Borrando” 
PRINT CHR$C22)+CHRS$C( 105 
GOSUE 120 
LOCATE 10,15: FRINT “0” 
GOSUE. 120 
LOCATE 10,15: PRINT 2_”,“Ssuperponiendo” 
END 
E=1 TO 2ZO000:NEXT K 
1:30 RETURN 


EXPLICACION: 


Normalmente cuando se imprime un caracter, el que estaba en esa posición es borrado 
y sustituido por el nuevo. 


Si activamos la superposición (ver 2) se activa un modo de escritura transparente de for- 
ma que se conserve lo viejo y lo nuevo se imprime encima fundiéndose con lo anterior. 
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CONTROL DE 
ERRORES 


EFECTO: 


Podemos controlar los errores producidos en los programas, de forma que en vez de pro- 
ducirse una detención del mismo y la aparición del mensaje estandar correspondiente, 
seamos nosotros los que introduzcamos el tipo de mensaje y obliguemos al programa 
a seguir o a parar. 


COMO CONSEGUIRLO: 


Utilizando la instrucción ON ERROR, en combinación con las funciones ERR y ERL. La 
primera nos da el número de error (ver lista de errores) y la segunda el número de línea 
en que se ha producido dicho error. Para que el programa continúe veremos la instruc- 
ción RESUME en la siguiente forma 


RESUME continúa en la línea del error. 
RESUME NEXT continúa en la línea siguiente. 
RESUME n.? lin. continúa en la línea cuyo número se indica. 


EJEMPLO: 


Observe en este ejemplo cómo puede utilizarse en forma que el texto que deseamos apa- 
rezca en la última línea, utilizando la ventanaxX 1. 


10 * CONTROL DE ERRORES 
20 ON ERROR GOTO 1000 

25 H=0 

30 X=24/H 

40 END 

1000 WINDOW k1,1,40,25,25 

1005 CL3 Ri 

1010 PRINT Ri, TABCS)CHR$C7)5 "ERROR No”¿ERR5”“EN LA LINEA”sERL 
1020 RESUME NEXT 


EXPLICACION: 


En el apéndice 1, se incluye la tabla de códigos de error, que también puede encontrar 
en el manual de su ordenador. 
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DESLIZAMIENTOS 
DE LOS ELEMENTOS 
DE UNA MATRIZ 


EFECTO: 


Desplazar el contenido de cada elemento de una matriz a su inmediatamente contiguo 
a la derecha. Esto mismo representado gráficamente da Ea a: 


AS(1) AS(2) AS(3) AS(4) AS(5) AS(6) AS(7) A$(8) AS(1) A$(2) ) AS(5) AS(6) AS(7) A$(8) 


aa ene 


Antes del deslizamiento Despues del deslizamiento 
Como se puede observar, en este tipo de deslizamiento se pierde el contenido de la va- 
riable situada más a la derecha, que equivale a la de subíndice más alto. 


COMO CONSEGUIRLO: 


El programa que hace posible un deslizamiento a la derecha, y considerando dimensio- 
nada la matriz y valorados sus elementos, es el siguiente 

110 A$(X) = AS(X-1) 

110 AS(X) = AS(X-1) 

120 NEXT X 


EXPLICACION: 
La ejecución de este programa da lugar a la serie de desplazamientos que se indican 
en la figura, resultando finalmente el desplazamiento deseado 
En el truco 44 y siguientes haces uso de la instrucción SWAP. 


El Amstrad sólo la incorpora para el intercambio de ventanas por lo que debes modificar 
los programas. 


EA O PR Inicial 
vuelta X= 8 
vuelta X= 7 
vuelta X= 6 
vuelta X= 5 
vuelta X= 4 
vuelta X= 3 


vuelta X= 2 


NOTA: Para conseguir este mismo efecto pero a la izquierda el programa es: 
100 FOR X = 2T0 8 

110 A$(X-1) = AS$(X) 

120 NEXT X 
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ROTACIONES DE LOS 
ELEMENTOS 
DE UNA MATRIZ 


EFECTO: 


Las rotaciones son un caso particular de los deslizamientos en los que no se pierde nin- 
gún elemento y cuya representación gráfica es: 


AS(1) AS(2) AS(3) AS(4) AS(57 AS(6) AS(7) AS(8) 


La fe [c lo le fr lo [nm] 
AAA RS RR 
Rotación a la derecha 


COMO CONSEGUIRLO: 


ASC1) AS(2) AS(3) AS(4) AS(5) AS(6) AS(7) AS(8) 


La [e fc Jo fe fr lo [nf 
ERES IZ 


Rotación a la izquierda 


Supongamos que se desea una rotación a la derecha entre el quinto elemento y el último 
de una matriz de ocho elementos: 


AS(1) AS(2) AS(3) AS(4) AS(5) AS(6) AS(7) AS(8) 


El programa correspondiente es: 


100 FOR X = 8 TO 6 STEP-1 
110C = AS(X) : AS(X) = AS(X-1) : AS(X-1) = C 
120 NEXT X 


EXPLICACION: 


La ejecución de este programa da lugar a la siguiente serie de movimientos en el conte- 
nido de la matriz. 


AS(1) AS(2) AS(3) AS(4) AS(5) AS(6) AS(7) A$(8) 


Inicial 


12 vuelta X-=8 


vuelta X=7 
vuelta X=6 


NOTA: Para conseguir este mismo efecto pero entre el primer elemento y el quinto el 
programa es: 

100 FOR X=2 TO 5 

110C = AS(X) : AS(X) = AS(X-1) : AS(X-1) = C 

120 NEXT X 
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ROTAR Y ENCAJAR 


EFECTO: 


Intercalar los elementos de una matriz en los de otra provocando tantas rotaciones co- 
mo elementos a encajar. 


COMO CONSEGUIRLO: 


Supongamos que interesa intercalar los valores contenidos en B$(1) y B$(2) en la matriz 
AS() a partir del elemento A$(2) provocando una rotación doble a partir de este elemento 
que concluya con una transferencia de los elementos rotados de AS$() a B$, siendo la si- 
tuación inicial y la final: 


Situación inicial Situación final 


ASC) AS(2) AS(3) AS(4) AS(5) AS(6) AS(7) AS(8) AS) AS(2) AS(3) AS(4) AS(5) AS(6) AS(7) AS(8) 


] La lv Ju fa Je fo Je fr |] 


B$(1) BS(2) B5(1) B5(2) 


El programa correspondiente es: 


100C=1:Y=3 

110 FOR X=8 TO Y STEP-1 

120 D = AS(X) : AS(X) = AS(X-1) : AS(X-1) = 
130 NEXT X 

140 E = B$(C) : BS(C) = AS(X) : AS(X) = 
150 C=C+1:Y=Y+1 

160 IF C< = 2 THEN 110 


EXPLICACION: 


La idea general de esta rutina es provocar una rotación en la matriz A$() desde el ele- 
mento segundo a la derecha, con lo cual el elemento octavo pasa a la segunda posición, 
momento en el que se intercambia el contenido actual de A (2) -H- con el de Bx(1) -V-. 
Hecho esto, se repite el proceso a partir del tercer elemento, para lo cual la variable Y 
toma el valor cuatro y C el valor 2. Esto se consigue mediante el mecanismo de rotación 
entre las líneas 110 y 130, y el intercambio de la línea 140. El resto de las líneas están 
dedicadas a los necesarios ajustes de las variables de control y repetición del bucle si 
se cumple la condición de borda establecida en 160. 
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CLASIFICACION 
ALFABETICA FICHA 
(Método REBOND) 44 


EFECTO: 


Clasificar alfabéticamente los elementos de una matriz alfanumérica, según el método 
de REBOND. 


COMO CONSEGUIRLO: 


Siguiendo un proceso similar al que se propone en el ejemplo siguiente: 


DIM A$(4) 

FOR X=0 TO 4 

READ A$0x) 

NEXT Xx 

DATA CUEVEDO, LOFE, CERVANTES, GONGORA, GUMARA 

NOOROIOROIOIOIOIOIOROIOIOIOIOOIOIOOROPOROIOORO OOOO lO joRPlolRPlPllPlORJORJOK 
, 


REM XxX CLASIFICACIÓN REBOND XXX 
EANDERA=0 
FOR C=0 TO A 
TF. A$ (0) :A$ (0+1) THEN EX=A$ (0): A$ (0) =A$ (0+1): $ (C+1)=EX: BANDERA=1 
NEXT E 
IF RANDERA=1 THEN 80 
FRINT A$(0),4$(1),4$(2),0$(3),A0$(4) 
END 


EXPLICACION: 


Como se puede observar este procedimiento está basado en el mismo criterio usado en 
el programa precedente. 


Mientras la BANDERA llegue a la comparación de la línea 120 con el valor 1 el prooeso 
se repite desde la línea 80 y, por tanto, la línea 130 sólo se alcanza cuando BANDERA es Y. 


Con respecto al límite impuesto a la variable C en la instrucción de la línea 90 se debe 
considerar que el último elemento no puede compararse con otro ulterior. 
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CLASIFICACION 
ALFABETICA 
(Método de la burbuja) 


EFECTO: 


Clasificar alfabéticamente los elementos de una matriz alfanumérica,según el método 
denominado de la burbuja. 


COMO CONSEGUIRLO: 


Siguiendo un proceso similar al que se propone en el ejemplo siguiente: 


10 DIM A$(4) 

20 FOR X=0 TO 4 

30 READ A$0X) 

40 NEXT Xx 

50 DATA QUEVEDO, LOFE, CERVANTES, GONGORA, GUMARA 

ORIO OOOO OSIRIS Rallo ata lalo aaa lalalala lalala laRRIOIJOÓK 


70 REM XXX CLASIFICACIÓN EURBEUJA XXX 

80 FOR Ci=0 TO 3 

90 FOR C2=C1+1 TO 4 

100 1F A$(C1)+A$(C2) THEN EX=A$((01):4$ (01)=4$ (102): A$ (02) =EX 
110 NEXT (2 

120 NEXT C1 

130 PFRINT A$(0),A4$(1),A$(2),A4$(3),A$(4) 


EXPLICACION: 


Con este procedimiento y a través del bucle que se inicia en la línea 80, se compara cada 
elemento de la matriz con todos los que le siguen excepto el último, claro está. 


Mediante la instrucción de la línea 100, se garantiza que los valores contenidos en las 
respectivas variables llegarán a la 130 en orden alfabético de menor a mayor. 


Este método no es el más rápido pero sí el más evidente, y para verlo en acción suponga- 
mos que el contenido de los elementos de la matriz A$() es: 


antes de D 
iniciarse A 
la Cc 
clasifi- F 

B 


A 
D 
C 
F 
cación B 


A A 
D D 
es G 
F F 
B B 


ración ración 


E esta serie de comparaciones la variable C1 es Y y C2 ha tomado 1, 2, 3 y 4 sucesiva- 
mente. 
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compa- 
ración 


A A 
B 
C 
F 


B 
D 
F 
C 


ración ración 


En esta serie de comparaciones la variable C1 es 2 y C2 ha tomado 3 y 4 sucesivamente. 
A 
B 
C 
D 
ración F 


En esta serie de comparaciones la variable C1 es 3 y C2 ha tomado exclusivamente 4. 


CLASIFICACIÓN 
ALFABETICA 


(Método de 
SHELL-METZNER) 


EFECTO: 


Clasificar albaféticamente los elementos de una matriz alfanumérica, según el método 
denominado de SHELL-METZNER. 


COMO CONSEGUIRLO: 


Siguiendo un proceso similar al que se propone en el ejemplo siguiente: 


10 DIM As (7) 

20 FOR X=0 TO 7 

30 READ A$(X) 

40 NEXT X 

SO C=X-1 

60 DATA GARCIA, FERNANDEZ, ANTON, HERNANZ, DESOTO, ENTERRIA, BILBAO, COLL 
FORROS lolo lala lll RORaRalOlROROIOROROIOK 


80 REM xxx CLASIFICACION SHELL-METZNER xxx 

90 D=INT (0/2) 

100 CS=0 

110 VA=CS 

120 IF A$S(VA) >A$ (VA+D) THEN EX=A$ (VA) : A$ (VA) =A$ (VA+D) : A$ (VA+D)=EX: VA=VA-—D: IF VA; 
=0 THEN 120 

130 CS=CS+1 

140 IF CS¿<=C-D THEN 110 

150 D=INT(D/2) 

160 IF Di=1 THEN 100 

170 PRINT A$(0),A$(1),A4$(2),4$(3),45$(4),5$(5),A$(6),A$ (7) 
180 END 


EXPLICACION: 


Los dos métodos anteriores se han caracterizado por comparar cada variable de la ma- 
triz con la que le sigue en orden, así: A$(n) con AS(n + 1), y si es necesario, intercambiar 
sus contenidos. 


En esta ocasión se va a comenzar por comparar una mitad de la lista de elementos con 
la otra para concluir que en la mitad inicial están las variables cuyo contenido es alfabé- 
ticamente menor que el de las correspondientes en la mitad final. A continuación, se com- 
para el cuarto inicial de la lista con el que le sigue, y éste con el tercer cuarto, y éste 
con el último, quedando en los cuartos comparados más próximos al inicio las cadenas 
inferiores alfabéticamente. El siguiente paso será comparar el octavo inicial de la lista 
con el segundo octavo y, si fuera necesario en esta etapa -o en la anterior- una permuta- 
ción, tendríamos que dar marcha atrás en el proceso de comparaciones anterior para 
asegurar que tras el cambio el proceso de comparaciones sigue siendo efectivo. 
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APENDICE 1 


EQUIVALENCIA ENTRE NUMEROS DECIMALES Y HEXADECIMALES 


a 
pl 
la] 
paar 


2928 


SR IRALER 
ARI BALI AAA BRENT RRESES BE II RE RLENRRVBSE 


as 
O000O0XDOOAGO0N— 


de) 


=3 
52 = Y 
SN =3b 
54 =3% 
55 =37 
5 =38 
57 =39 
58 =3A 
59 =3B 
60 =3C 
61 =3D 
62 =3E 
63 =3F 
64 =40 
65 =41 
66 =42 
67 =43 
68 =44 
€9 =45 
70 =46 
71 =47 
72 =48 
73 =49 
74 =48 
75 =4B 
76 =4C 
77 =4D 
78 =4E 
79 =4F 
80 =50 
81 =51 
82 =52 
8 =53 
84 =5 
85 =55 
86 =56 
87 =57 
88 =58 
89 =59 
9% =5A 
91 =5B 
92 =5C 
93 =5D 
94 =5E 
9% =5F 
9% =60 
97 =61 
98 =62 
9 =63 
100 
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— 
o 


O O TT Y TI TT TI TI UT TT TD II 
OSRLLEQRR LOROS RRE R RP ERURRLERT BARDA B BABA BR 


SLERLESAADBARERIB BBB RLBRL88N 
NUNNUNSEISAISA ABE E RARO BN 
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MENSAJES DE ERROR 


0OXDODOAaAO0NnN— 


pan 
o 


SIGNIFICADO 


NEXT no esperado. No existe el FOR previo correspondiente. 

Error de sintaxis. La línea no guarda las reglas de sintaxis del BASIC del Amstrad. 
RETURN no esperado. No existe el GOSUB previo correspondiente. 

DATA agotados. No hay más datos para leer con READ. 

El argumento de la función no es válido. 

Rebasamiento. El número es demasiado grande o pequeño. 

Memoria llena. 

No existe la línea que se indica. 

El subíndice de la variable indexada esta fuera del rango establecido en el DIM, o bien 
este no existe y el subíndice es mayor de 10. 

La matriz ya ha sido dimensionada. 

División por cero. 

Comando directo no válido. 

incongruencia de tipos (números y textos). 

No hay más sitio para textos. 

Cadena demasiado larga (más de 255 caracteres). 

Cadena demasiado compleja. 

No se puede continuar con CONT después de una interrupción. 

Función desconocida. Hay un FN sin el DEF FN correspondiente. 

Orden RESUME perdida. Se ha llegado al final del pgm mientras se ejecutaba un ON 
ERROR. 

RESUME no esperado. No existe el ON ERROR previo correspondiente. 
Encontrado un comando directo (sin número de línea). 

Operando perdido, por operación incompleta. 

Línea demasiado larga. 

Se ha encontrado leyendo un fichero la señal de final del mismo. 

Tipo de fichero erróneo. 

NEXT perdido. Hay un FOR sin su correspondiente NEXT. 

El fichero ya estaba abierto. 

WEND perdido. Hay un WHILE sin su WEND correspondiente. 

WEND inesperado. Se ha encontrado un WEND si su WHILE correspondiente. 
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